%Jose Luis
%1 = Normal
%2 = Fibonacci
%3 = Martingala
%4 = Margingala ajustada
%5 = oscar

 function [i indice] = generarSerie(tipoSerie, indice, ultimaApuesta, exito,bankroll,cuota)

    %Llamada a metodos
    switch(tipoSerie)
        case 1
            i=1;
        case 2
            if(exito)
                i = 1;
            else
                i = fibonacci(indice);
            end
        case 3
            if(exito)
                i = 1;
            else
                i = martingala(indice);
            end
        case 4
            if(exito)
                i = indice;
                indice = indice+1;
                if indice > 5
                    indice = 1; end
            else
                i = martingalaAjustada(bankroll,cuota);
                indice = indice;
            end     
        case 5
            if(exito)
                if(indice==1)
                    i=1;
                else
                    %cerrar la serie o seguir
                    if( bankroll - ultimaApuesta*(cuota-1) <= 1)
                        i = ultimaApuesta;
                    elseif (bankroll - (ultimaApuesta+1)*(cuota-1) <= 1  )
                        i = indice+1;
                    else
                        i = indice+1;
                    end
                end
            else
               i=indice;
               
               if(indice > 6)
                   i=1;
               end
            end                
        otherwise
            i=1;
    end
    
    %funcionamiento por defecto
    if(exito)
        indice=1;
    else
        indice = indice + 1;
    end     
end